VB ile τevre de≡i■kenlerini okumak
DOS komut sat²r²ndan SET komutunu girdi≡inizde normal ■artlarda en fazla 255 karakter olan τevre de≡i■kenini okuyabilirsiniz. Visual Basic ile de τevre de≡i■keninin herhangi sat²r²ndaki veriye rahatl²kla ula■abilirsiniz. Bunun iτin Environ fonksiyonunu kullanman²z yeterlidir.
Dim EnvString, Indx, Msg, PathLen ' De≡i■kenleri tan²mla
Indx = 1 ' Sat²r = 1
Do
EnvString = Environ(Indx) ' De≡i■keni oku
If Left(EnvString, 5) = "PATH=" Then ' PATH b÷lⁿmⁿnⁿ ara
PathLen = Len(Environ("PATH")) ' uzunlu≡unu bul
Msg = "PATH sat²r² = " & Indx & " uzunlu≡u = " & PathLen
Exit Do
Else
Indx = Indx + 1 ' PATH b÷lⁿmⁿ bulunamad²
End If ' bir sonraki sat²ra geτ
If PathLen > 0 Then
MsgBox Msg 'PATH de≡i■keni bulunursa uzunlu≡unu ve
'sat²r² g÷rⁿntⁿle
Else
MsgBox "PATH tan²mlar² bulunamad²."
End If